home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 53 / Commodore_Disc_53_19xx_-_de.d64 / super quiz (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  18KB  |  576 lines
  1. 10 rem          super quiz
  2. 11 rem       geschrieben von:
  3. 12 rem        robert weitzel
  4. 13 rem     hollerlander weg 100
  5. 14 rem        2800 bremen 33
  6. 15 :
  7. 30 poke53280,0:poke53281,0:gosub10000
  8. 50 v=53248:poke2040,13
  9. 90 dimr(100):dimag$(9):dimn$(16):dimp(16):dimbe$(350):dimhi$(40):dimsc(40):ra=1
  10. 170 r=1:m$="":forz=1to16:p(z)=0:next       :p7=0:kb=0:d=0
  11. 172 sp=-1
  12. 175 print"[147]"
  13. 177 if ag$(0)<>""then500
  14. 179 bs$="standard":goto187
  15. 180 print"[152]  filename (s=standard):"
  16. 185 input"  ";bs$:ifbs$="s"thenbs$="standard"
  17. 187 ifbs$="standard"then                     open2,8,2,bs$+",s,r":goto200
  18. 190 open2,8,2,"satz "+bs$+",s,r"
  19. 200 open1,8,15:input#1,x,x$
  20. 210 ifx>0thenprint"  "x$"[152]":close1:close2:goto180
  21. 220 print"[150][147]            bitte warten... "
  22. 225 input#2,ab:forx=0to9:input#2,ag$(x):    nextx
  23. 227 forx=1toab:input#2,be$(x):nextx:close2:close1
  24. 230 bs$="satz "+bs$
  25. 480 gosub2500
  26. 490 :
  27. 500 poke198,0:print"[147]       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  28. 501 print"[157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221]"
  29. 502 print"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  30. 503 print"       [157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221]"
  31. 504 print"       [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  32. 509 print"[152]         f1[146] andere begriffe"
  33. 510 print"f3[146] spielstart"
  34. 511 print"f5[146] hiscores"        :print"f7[146] anleitung"
  35. 512 print" _[146] editieren"
  36. 514 print"file: ";right$(bs$,len(bs$)-5)
  37. 515 print""ab" begriffe"
  38. 516 print"-----------s-u-p-e-r--q-u-i-z-----------"
  39. 520 geta$:ifa$=""then520
  40. 530 ifa$="[133]"then print"[147]":goto180
  41. 540 ifa$="[134]"then 800
  42. 541 ifa$="[135]"then gosub12010:gosub13000     :goto500
  43. 542 ifa$="_"then 9500
  44. 543 ifa$="[136]"then 14000
  45. 545 ifa$="c"then 9000
  46. 550 goto520
  47. 800 :
  48. 810 ifn$(1)=""then1000
  49. 815 print"[147]"
  50. 820 forx=1toas:print"   "x". "n$(x):next
  51. 830 print"   ist die aufstellung korrekt (j/n)?"
  52. 840 geta$:ifa$=""then840
  53. 850 ifa$="n"then1000
  54. 860 ifa$="j"then1135
  55. 870 goto840
  56. 1000 :
  57. 1010 rem                                         --- namen abfragen ---
  58. 1020 print"[147]":x=1
  59. 1030 n$(x)="":print"   spieler"x;           :inputn$(x)
  60. 1035 if n$(x)="" and x<3 or len(n$(x))>12 then print"[145]";:goto 1030
  61. 1038 if n$(x)="" and x>2 then 1050
  62. 1040 x=x+1:if x<17 then 1030
  63. 1050 as=x-1
  64. 1134 :
  65. 1135 print"   ueber wieviele runden soll das spiel    gehen (10,20,30 oder 50)
  66. 1140 [133]"   ";ar
  67. 1142 [139] ar[178]10 [176] ar[178]20 [176] ar[178]30 [176] ar[178]50 [167]1146
  68. 1145 [153]"on";:[137]1140
  69. 1146 sn[178]0:[133]"   seid ihr sensibel ";x$  :[139] x$[178]"j" [176] x$[178]"y" [167] sn[178]1
  70. 1150 [153]"load"
  71. 1160 [129]x[178]1[164]as [169]2
  72. 1165 [151]214,9[170]x:[151]211,0:[158]58640
  73. 1170 [153]n$(x)[166]17[171][195](n$(x)))"sys0  ";
  74. 1172 [139]x[170]1[179][178]as[167][153]n$(x[170]1)[166]17[171][195](n$(x[170]1)))"sys0";
  75. 1180 [130]x:[141]3000:[141]1900
  76. 1200 [153]"conttantantantantantantantantantantantantantantantantantantan=tantantantantantantantantantantantantantantantantantantantan";
  77. 1210 [153]"(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)";
  78. 1255 [143]                                         --- striche zeichnen ---
  79. 1257 m[178]0:m$[178]" "
  80. 1260 lb[178][195](b$)
  81. 1265 [153]"print#";
  82. 1270 [129]x[178]1[164]lb:x$[178][202](b$,x,1)
  83. 1275 [139]x$[178]" "[167]m[178]m[170]1:[153]" ";:[137]1290
  84. 1280 [153]"-";:
  85. 1290 [130]
  86. 1300 [153]"                                       ":
  87. 1305 w[178]0:[153]"runde "r"  gesucht wird sys"ag$(ag)
  88. 1310 [153]"sys"n7$" ist dran !               "
  89. 1320 [153]"einen buchstaben oder loesung eingeben:":e$[178]"":[153]" ?sincmd";
  90. 1322 [161]x$:[139]x$[177]""[167]1325
  91. 1323 [139] [181]([197](ti$)[173]2)[178][197](ti$)[173]2            [167] [153]"sinwaitcmd";:[137]1322
  92. 1324 [153]"sincmd";:[137]1322
  93. 1325 [139] [198](x$)[178]13 [175] e$[179][177]""                 [167] [153]" ";:[137]1340
  94. 1326 [139][198](x$)[178]20[175]e$[179][177]""[167]e$[178][200](e$,[195](e$)[171]1):[153][199](20)"sincmd";
  95. 1327 [139] x$[178]" "[167]1330
  96. 1329 [139] x$[179]"a" [176] x$[177]"z" [167]1322
  97. 1330 [139] [195](e$)[179]37 [167] e$[178]e$[170]x$            :[153]x$"sincmd";
  98. 1335 [137]1322
  99. 1340 [139] [195](e$)[178]1 [167]1380
  100. 1350 [139] e$[178]b$ [167] [137]1500
  101. 1355 kb[178]kb[170]1:[141]2140:[139]kb[177]5[175]kb[177][178]as        [167][141]6675:[137]1492
  102. 1360 [141]1900:[137]1300
  103. 1380 [143]                                         --- buchstaben einsetzen ---
  104. 1383 [129]x[178]1[164] [195](m$):x$[178][202](m$,x,1)
  105. 1384 [139]x$[178]e$[167][141]2010:[137]1300
  106. 1385 [130]
  107. 1390 [153]"";
  108. 1400 [129]x[178]1[164]lb:x$[178][202](b$,x,1)
  109. 1410 [139]x$[178]e$[167][153]"sys"e$"print#";:w[178]1:p7[178]p7[170]10:m[178]m[170]1:[141]2840:[137]1440
  110. 1430 [153]"";
  111. 1440 [130]:[141]1450:[137]1483
  112. 1449 [143]                                         --- punkte ausdrucken ---
  113. 1450 p(d)[178]p(d)[170]p7
  114. 1460 [139] [181](d[173]2)[178]d[173]2 [167] 1470
  115. 1465 [151]214,9[170]d:[151]211,12:[137]1475
  116. 1470 [151]214,8[170]d:[151]211,32
  117. 1475 [158]58640:[153]"sys"[166]6[171][195]([196](p(d)))) p(d)"print#";
  118. 1480 p7[178]0:[142]
  119. 1482 [143]                                                -------
  120. 1483 [139]m[178][195](b$)[167][141]3500:[141]2050:[137]1492
  121. 1485 [139]w[178]1[167]m$[178]m$[170]e$:[137]1300
  122. 1490 [139]w[178]0[167] [141]2200:[141]6500:[141]2450:[139]kb[177]5 [175] kb[177][178]as [167] 1492
  123. 1491 [139]w[178]0[167] [141]1900:[137]1300
  124. 1492 r[178]r[170]1:kb[178]0:ra[178]ra[170]1
  125. 1493 [139]r[177]ar[167] 4000
  126. 1495 [141]3000:[141]1900:[137]1255
  127. 1500 [143]                                         --- loesung richtig ---
  128. 1510 [141]2110:[141]3500
  129. 1515 [153]"";
  130. 1519 x0[178]0
  131. 1520 x0[178]x0[170]1:x$[178][202](b$,x0,1)
  132. 1530 [129]y[178]1[164][195](m$)
  133. 1535 x1$[178][202](m$,y,1)
  134. 1540 [139]x$[178]x1$[167]z[178]1
  135. 1545 [130]y
  136. 1550 [139]z[178]1[167][153]"";:[137]1560
  137. 1555 [153]"sys"x$;:p7[178]20:[141]1450:[153]""[166]x0);
  138. 1557 [141]2840
  139. 1560 z[178]0:[139]x0[179][195](b$)[167]1520
  140. 1640 [141]2130:w[178]2:[141]1450
  141. 1650 [129]x[178]0[164]2000:[130]:[137]1483
  142. 1900 [143]                                         --- naechster spieler ---
  143. 1920 [139]d[178]as[167]d[178]1:[137]1940
  144. 1930 d[178]d[170]1
  145. 1940 n7$[178]n$(d)
  146. 1950 [142]
  147. 2000 [143]                                         --- kommentare ---
  148. 2010 [153]"def der buchstabe steht schon da,du niete!print#"
  149. 2015 [139] sn[178]1 [167] [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd          ";
  150. 2020 [129]x[178]0[164]3000:[130]
  151. 2030 [153]"                                       ":[142]
  152. 2050 [153]"def endlich habt ihr es geschafft !print#"
  153. 2060 [129]x[178]0[164]3000:[130]
  154. 2070 [153]"                                     ":[142]
  155. 2110 [153]"def super !! die loesung ist richtig !print#":[142]
  156. 2130 [153]"                                   ":[142]
  157. 2140 [153]"def das ist total falsch !print#"
  158. 2150 [129]x[178]0[164]3000:[130]
  159. 2160 [153]"                            ":[142]
  160. 2200 [143]                                         --- zufallssprueche---
  161. 2202 [139] sn[178]0 [167] 2205
  162. 2203 [153]"def         "e$" ist leider falsch":[142]
  163. 2205 x[178][187]([171]ti)
  164. 2210 x[178][181]([187](0)[172]24)[170]1
  165. 2220 y[178][181]([187](0)[172]13)[170]1
  166. 2230 [145] x [137]2240,2241,2242,2243,2244,2245,2246,2247,2248,2249,2250,2251,2252
  167. 2235 [145] x[171]13 [137]2253,2254,2255,2256,2257,2258,2259,2260,2261,2262,2263
  168. 2240 x$[178]"flasche":[137]2300
  169. 2241 x$[178]"faule banane":[137]2300
  170. 2242 x$[178]"pappnase":[137]2300
  171. 2243 x$[178]"scherzkeks":[137]2300
  172. 2244 x$[178]"hanswurst":[137]2300
  173. 2245 x$[178]"vertrocknetes gummibaerchen":[137]2300
  174. 2246 x$[178]"hirnamputierter goldfisch":[137]2300
  175. 2247 x$[178]"halbgares suppenhuhn":[137]2300
  176. 2248 x$[178]"schief gewickelte fruehlingsrolle":[137]2300
  177. 2249 x$[178]"kuemmerlicher schlumpf":[137]2300
  178. 2250 x$[178]"krummer hering":[137]2300
  179. 2251 x$[178]"sandkastenstratege":[137]2300
  180. 2252 x$[178]"trostpreis":[137]2300
  181. 2253 x$[178]"schiessbudenfigur":[137]2300
  182. 2254 x$[178]"depp":[137]2300
  183. 2255 x$[178]"kamel":[137]2300
  184. 2256 x$[178]"hohlkopf":[137]2300
  185. 2257 x$[178]"dorftrottel":[137]2300
  186. 2258 x$[178]"torfkopf":[137]2300
  187. 2259 x$[178]"treulose tomate":[137]2300
  188. 2260 x$[178]"kameltreiber":[137]2300
  189. 2261 x$[178]"senfgurke":[137]2300
  190. 2262 x$[178]"salzhering":[137]2300
  191. 2263 x$[178]"schweinehirt":[137]2300
  192. 2300 [145] y [137]2310,2320,2330,2340,2350,2360,2364,2368,2370,2375,2378,2380,2383
  193. 2310 [153]"def  leider falsch geraten,":[153]"   du "x$:[137]2400
  194. 2320 [153]"def  das war ja wohl nix,":[153]"   du "x$:[137]2400
  195. 2330 [153]"def  nicht schlecht, aber trotzdem falsch," :[153]"   du "x$
  196. 2335 [137]2400
  197. 2340 [153]"def  schaaade, schon wieder nix,":[153]"   du "x$:[137]2400
  198. 2350 [153]"defis' dir'n klavier auf'n kopf gefallen ?" :[153]"   du "x$
  199. 2355 [137]2400
  200. 2360 [153]"def  wo soll denn da ein "e$" sein ? ,":[153]"   du "x$
  201. 2362 [137]2400
  202. 2364 [153]"def  ich bin enttaeuscht von dir,":[153]"   du "x$
  203. 2365 [137]2400
  204. 2368 [153]"def  nein !, neeiin !!, total daneben,":[153]"   du "x$
  205. 2369 [137]2400
  206. 2370 [153]"def  jawoll, wieder  0 p. fuer dich,":[153]"   du "x$
  207. 2371 [137]2400
  208. 2375 [153]"def  aaaarrgh , ich halt's nicht aus,":[153]"   du "x$
  209. 2376 [137]2400
  210. 2378 [153]"def  peinlich, peinlich ,":[153]"   du "x$
  211. 2379 [137]2400
  212. 2380 [153]"def  ooch "n7$", das ist pech,":[153]"   du "x$
  213. 2381 [137]2400
  214. 2383 [153]"def  das ist leider falsch "n7$",":[153]"   du "x$
  215. 2384 [137]2400
  216. 2400 [153]"print#";:[142]
  217. 2440 :
  218. 2450 [153]"                                       "
  219. 2460 [153]"                                       "
  220. 2470 [142]
  221. 2500 [143]                                         --- geraeusch ---
  222. 2510 s[178]54272
  223. 2520 [151]s[170]24,15
  224. 2530 [129]l[178]0[164]23:[151]s[170]l,0:[130]
  225. 2535 [151]s[170]23,240
  226. 2540 [151]s[170]7,157
  227. 2550 [151]s[170]8,60
  228. 2555 [151]s[170]12,8:[151]s[170]19,87
  229. 2560 [151]s[170]13,3
  230. 2800 [142]
  231. 2840 [143]                                         --- einzelner ton ---
  232. 2850 [151]s[170]11,17:[129]z[178]0[164]25:[130]z:[151]s[170]11,0:[142]
  233. 2900 [139] y$[179][177]" " [167] [151]s[170]11,129           :[142]
  234. 2901 [142]
  235. 3000 [143]                                         --- begriff suchen ---
  236. 3010 :
  237. 3020 m$[178]""
  238. 3030 [153]"                                        ":
  239. 3050 x[178][181]([187](0)[172]ab)[170]1
  240. 3060 [139] ra[177]ab [176] ra[177]100 [167] ra[178]1:             [137]3090
  241. 3065 [129]z[178]1 [164] ra[171]1
  242. 3070 [139]x[178]r(z)[167]3050
  243. 3080 [130]
  244. 3090 r(ra)[178]x
  245. 3100 b$ [178] [200](be$(x),[195](be$(x))[171]2)
  246. 3110 ag [178] [197]([201](be$(x),1))
  247. 3180 [142]
  248. 3500 [143]                                         --- melodie ---
  249. 3510 [140]:s[178]54272
  250. 3520 [151]s[170]13,10[172]16[170]10:[151]s[170]20,10[172]16[170]10:[151]s[170]12,100:[151]s[170]19,100
  251. 3530 [129]z[178]1[164]8
  252. 3550 [135]h:[135]l:[135]td
  253. 3555 [151]s[170]8,h:[151]s[170]7,l:[151]s[170]15,h:[151]s[170]14,l[170]5:[151]s[170]11,33:[151]s[170]18,33
  254. 3560 [129] x[178]0 [164] td:[130]x:
  255. 3570 [151]s[170]11,0:[151]s[170]18,0:[130]z
  256. 3600 [131]34,207,250
  257. 3610 [131]26,20 ,125
  258. 3620 [131]29,69 ,250
  259. 3630 [131]21,237,125
  260. 3640 [131]23,59 ,250
  261. 3650 [131]19,137,250
  262. 3660 [131]26,20 ,250
  263. 3670 [131]21,237,250
  264. 3999 [151]si[170]24,0:[141]2530:[142]
  265. 4000 [143]                                         --- siegerehrung ---
  266. 4001 [129]z[178]1[164]as
  267. 4002 [139]p(z)[177]sp[167]sp[178]p(z):si$[178]n$(z)
  268. 4003 [130]z
  269. 4010 [153]"load      -- das spiel ist zuende --"
  270. 4090 [153]"    gewonnen hat :":[153]"    sys"si$"print# mit sys"sp"print# punkten !!":x[178]0
  271. 4100 [129]z[178]1[164]as
  272. 4110 [139]p(z)[178]sp[175]n$(z)[179][177]si$[167][153]"und sys"n$(z)"print# mit sys"sp"print# punkten !!":x[178]1
  273. 4120 [130]z
  274. 4280 [139]x[178]1[167][153]"ihr muesst eucht leider den preis teilen"
  275. 4290 [153]"sys              <space>print#"
  276. 4300 [151]198,0:[146]198,1
  277. 4310 [139]x[178]1[167][153]"load     wollt ihr die syskprint#ohle in bar":[137]4330
  278. 4320 [153]"load     willst du die syskprint#ohle in bar"
  279. 4330 [153]"     oder den sysuprint#eberraschungspreis ?"
  280. 4340 [161]a$:[139]a$[178]""[167]4340
  281. 4350 [139]a$[178]"u"[167] 8000
  282. 4360 [139]a$[179][177]"k"[167]4340
  283. 4370 [153]"load      herzlichen glueckwunsch !!"
  284. 4380 [139]x[178]1[167][153]"          hier ist euer gewinn:":[137]4400
  285. 4390 [153]"         hier ist dein gewinn:"
  286. 4400 [153]"    "sp[170]2"schubkarren randvoll mit"
  287. 4410 [153]"        frischer steinkohle aus"
  288. 4420 [153]"           dem ruhrgebiet !!"
  289. 4500 [153]"print#              <space>"        :[151]198,0
  290. 4510 [161] a$:[139]a$[178]""[167]4510
  291. 4520 [141]12010
  292. 4530 x[178]ar:[139]x[178]50[167]x[178]40
  293. 4535 [129]w[178]1[164]as
  294. 4540 [139] sc(x)[177][178]p(w) [167] 4610
  295. 4545 hz[178]1:sc(x)[178]p(w):hi$(x)[178]n$(w)
  296. 4550 [129]y[178]x[164]x[171]8 [169][171]1
  297. 4560 [139]sc(y)[179][178]sc(y[171]1)[167] 4600
  298. 4570 z[178]sc(y):sc(y)[178]sc(y[171]1):sc(y[171]1)[178]z
  299. 4580 z$[178]hi$(y):hi$(y)[178]hi$(y[171]1)              :hi$(y[171]1)[178]z$
  300. 4600 [130]y
  301. 4610 [130]w
  302. 4900 [139] hz[178]1 [167] hz[178]0:[141]12100           :[141]13010
  303. 4910 [137]170
  304. 6500 [143]                                         --- buchstabe spring---
  305. 6510 kb[178]kb[170]1:[151]v,40:[151]v[170]1,74
  306. 6520 [140]
  307. 6530 [135]q:[139]q[179][177]999[167]6530
  308. 6540 z1[178][198](e$)[171]65:[139]z1[178]0[167]6560
  309. 6545 [139] (z1[177]25) [176] (z1[179]0) [167] z1[178]23
  310. 6550 [129]z[178]1[164]z1[172]8:[135]q:[130]
  311. 6560 [129]z[178]0[164]23[169]3:[135]q:[151]13[172]64[170]z,q:[130]
  312. 6570 [151]v[170]21,1:[153]" "
  313. 6580 ve[178][171]2:y[178]74
  314. 6590 [129]x[178]40[164]150[169]2:y[178]y[170]ve:          [151]v[170]1,y:[151]v,x:ve[178]ve[170]0.1:[130]
  315. 6600 ve[178][171]2.6:[151]s[170]8,2:[151]s[170]11,129
  316. 6610 [129]x[178]151[164]255[169]2:y[178]y[170]ve:[151]v[170]1,y:[151]v,x:ve[178]ve[170]0.1:[130]
  317. 6620 [151]s[170]11,0:[151]v,0:[151]v[170]16,1:ve[178][171]2.4:[151]s[170]8,2:[151]s[170]11,129
  318. 6630 [129]x[178]1[164]90[169]2:y[178]y[170]ve:[151]v[170]1,y:[151]v,x:ve[178]ve[170]0.1:[130]
  319. 6640 [151]v[170]21,0:[151]v[170]16,0
  320. 6645 [139] kb[177]5 [175] kb[177][178]as [167] 6675
  321. 6650 [151]s[170]8,2:[151]s[170]12,12:[151]s[170]11,0:[151]s[170]11,129:[129]x[178]0[164]1500:[130]:[151]s[170]11,0
  322. 6670 [141]2530:[142]
  323. 6672 [143]                                         --- aufloesung ---
  324. 6675 [153]"sys"b$"print#"
  325. 6705 [143]                                         --- bildschirmwackeln ---
  326. 6706 [141]2500
  327. 6710 [151]s[170]12,10[172]16[170]15:[151]s[170]8,2            :[151]s[170]11,129
  328. 6712 [151]s[170]19,15[172]16[170]15:[151]s[170]15,2            :[151]s[170]18,129
  329. 6715 [129]z[178]0[164]50
  330. 6720 [129]x[178]8[164]15:[151]53270,x:[130]x
  331. 6730 [129]x[178]14[164]9[169][171]1:[151]53270,x:[151]s[170]8,x:[130]x
  332. 6740 [151]s[170]15,z:[130]z:[151]53270,200
  333. 6750 [151]s[170]11,0:[151]s[170]18,0
  334. 6770 [129]z[178]1[164]3:[151]s[170]12,9 :[151]s[170]8,1:[151]s[170]11,129:
  335. 6800 [129]x[178]0[164]30:[151]53270,[187](0)[172]5[170]9:[130]x:[129]x[178]0[164]300:[130]x:[151]s[170]11,0:[130]z
  336. 6900 [151]53270,200:[141]2530:[142]
  337. 6999 [143]                                         --- buchstaben data ---
  338. 7000 [131]999,24,60,102,126,102,102,102,0
  339. 7005 [131]124,102,102,124,102,102,124,0
  340. 7010 [131]60,102,96,96,96,102,60,0
  341. 7015 [131]120,108,102,102,102,108,120,0
  342. 7020 [131]126,96,96,120,96,96,126,0
  343. 7025 [131]126,96,96,120,96,96,96,0
  344. 7030 [131]60,102,96,110,102,102,60,0
  345. 7035 [131]102,102,102,126,102,102,102,0
  346. 7040 [131]60,24,24,24,24,24,60,0
  347. 7045 [131]30,12,12,12,12,108,56,0
  348. 7050 [131]102,108,120,112,120,108,102,0
  349. 7055 [131]96,96,96,96,96,96,126,0
  350. 7060 [131]99,119,127,107,99,99,99,0
  351. 7065 [131]102,118,126,126,110,102,102,0
  352. 7070 [131]60,102,102,102,102,102,60,0
  353. 7075 [131]124,102,102,124,96,96,96,0
  354. 7080 [131]60,102,102,102,102,60,14,0
  355. 7085 [131]124,102,102,124,120,108,102,0
  356. 7090 [131]60,102,96,60,6,102,60,0
  357. 7095 [131]126,24,24,24,24,24,24,0
  358. 7100 [131]102,102,102,102,102,102,60,0
  359. 7105 [131]102,102,102,102,102,60,24,0
  360. 7110 [131]99,99,99,107,127,119,99,0
  361. 7115 [131]102,102,60,24,60,102,102,0
  362. 7120 [131]102,102,102,60,24,24,24,0
  363. 7125 [131]126,6,12,24,48,96,126,0
  364. 8000 [143]                                         --- ueberraschung ---
  365. 8010 [153]"loadsys        der ueberraschungspreisprint#"
  366. 8015 [139] sp [179] 50 [167] [137] 8900
  367. 8020 z[178][181]([187](0)[172]8)[170]1
  368. 8025 [139][195](ub$)[178]16[167]ub$[178]""
  369. 8027 [139]ub$[178]""[167]8070
  370. 8030 [129]y[178]1[164][195](ub$)[169]2:[139][202](ub$,y,2)[178][196](z)[167]8020
  371. 8040 [130]y
  372. 8070 ub$[178]ub$[170][196](z)
  373. 8080 [145]z[137]8100,8200,8300,8400,8500,8600,8700,8800
  374. 8089 :
  375. 8090 [143]                                         --- ** 1 ** ---
  376. 8100 [139]x[178]1[167][153]" ihr habt so viele punkte erreicht,"
  377. 8110 [139]x[178]1[167][153]" dass ihr im systinnef-buch der rekordeprint#"
  378. 8120 [139]x[178]1[167][153]" erwaehnt werdet !!"
  379. 8130 [139]x[178]1[167] 4500
  380. 8140 [153]" du hast so viele punkte erreicht,"
  381. 8150 [153]" dass du im systinnef-buch der rekordeprint#"
  382. 8160 [153]" erwaehnt wirst !!"
  383. 8170 [137]4500
  384. 8189 :
  385. 8190 [143]                                         --- ** 2 ** ---
  386. 8200 [139]x[178]1[167][153]" ihr gewinnt ein wochenende":[137]8220
  387. 8210 [153]" du gewinnst ein wochenende"
  388. 8220 [153]" mit thomas gottschalk einschliesslig"
  389. 8230 [153]" einem auftritt im werbefernsehen"
  390. 8240 [153]" mit pommes und hamburger eines"
  391. 8250 [153]" bekannten, schottischen"
  392. 8260 [153]" reste - restaurants !!"
  393. 8270 [137]4500
  394. 8289 :
  395. 8290 [143]                                         --- ** 3 ** ---
  396. 8300 [139]x[178]1[167][153]" weil ihr so gut raten koennt,"
  397. 8310 [139]x[178]1[167][153]" duerft ihr in robert lembkes":[137]8340
  398. 8320 [153]" weil du so gut raten kannst,"
  399. 8330 [153]" darfst du in robert lembkes"
  400. 8340 [153]" beliebtem fernsehquiz"
  401. 8350 [153]"sys heiteres beruferaten print#mitspielen !!"
  402. 8360 [137]4500
  403. 8389 :
  404. 8390 [143]                                         --- ** 4 ** ---
  405. 8400 [139]x[179][177]1[167] 8430
  406. 8405 [153]" da ihr nicht besonders intelligent"
  407. 8410 [153]" ausseht und nur mit viel glueck"
  408. 8420 [153]" gewonnen habt, duerft ihr mit der":[137]8460
  409. 8430 [153]" da du nicht besonders intelligent"
  410. 8450 [153]" aussiehst und nur mit viel glueck"
  411. 8455 [153]" gewonnen hast, darfst du mit der"
  412. 8460 [153]" challenger ins all fliegen und"
  413. 8470 [153]" mr spock besuchen !!"
  414. 8480 [137]4500
  415. 8489 :
  416. 8490 [143]                                         --- ** 5 ** ---
  417. 8500 [139]x[179][177]1[167] 8515
  418. 8510 [153]" ihr  gewinnt ein stueck von":[137]8520
  419. 8515 [153]" du gewinnst ein stueck von"
  420. 8520 [153]" der berliner mauer ( 5m breit )."
  421. 8590 [137]4500
  422. 8594 :
  423. 8595 [143]                                         --- ** 6 ** ---
  424. 8600 [139]x[179][177]1[167]8625
  425. 8610 [153]" was !! ihr habt nur "sp"punkte"
  426. 8620 [153]" erreicht und wollt dafuer auch noch":[137]8630
  427. 8625 [153]" was !! du hast nur "sp"punkte"
  428. 8627 [153]" erreicht und willst dafuer auch noch"
  429. 8630 [153]" eine belohnung haben ??
  430. 8640 forz=0to3000:next
  431. 8650 ifx<>1then8680
  432. 8660 print" na gut, weil ihr noch etwas"
  433. 8670 print" uebung noetig habt, gewinnt ihr ein":goto8690
  434. 8680 print" na gut, weil du noch etwas"
  435. 8685 print" uebung noetig hast, gewinnst du ein"
  436. 8690 print" freispiel."
  437. 8695 goto4500
  438. 8697 :
  439. 8698 rem                                         --- ** 7 ** ---
  440. 8700 ifx<>1then8720
  441. 8710 print" ihr gewinnt einen [158]mercedes 500 bio[152]":goto8730
  442. 8720 print" du gewinnst einen [158]mercedes 500 bio[152]"
  443. 8730 print" (umweltfreundliches modell mit"
  444. 8740 print"  pedalantrieb.)"
  445. 8750 goto4500
  446. 8798 :
  447. 8799 rem                                         --- ** 8 ** ---
  448. 8800 ifx<>1then8820
  449. 8810 print" ihr gewinnt eine solargetriebene":goto8830
  450. 8820 print" du gewinnst eine solargetriebene"
  451. 8830 print" taschenlampe, die alles taghell"
  452. 8840 print" erleuchtet (sofern die sonne scheint!)"
  453. 8850 goto4500
  454. 8898 :
  455. 8899 rem                                         --- bei schlechtem erg.---
  456. 8900 s=54272:gosub2500:a1$="gnade "
  457. 8901 a2$="[150]absturz[146]"
  458. 8902 g1$="gnade[146]"
  459. 8903 g2$="[150]absturz"
  460. 8908 ifx<>1then8920
  461. 8910 print" ihr ward so schlecht, dass ich am":goto8930
  462. 8920 print" du warst so schlecht, dass ich am"
  463. 8930 print" liebsten das programm [158]abstuerzen[152]"
  464. 8940 print" lassen wuerde !! "
  465. 8945 ifx<>1then8965
  466. 8947 forz=0to2000:nextz
  467. 8950 print" aber ihr habt noch eine chance !!"
  468. 8955 forz=0to2000:nextz
  469. 8960 print"               waehlt:":poke198,0:goto8990
  470. 8965 forz=0to2000:nextz
  471. 8970 print" aber du hast noch eine chance !!"
  472. 8975 forz=0to2000:nextz
  473. 8980 print"               waehle:":poke198,0
  474. 8990 printa1$
  475. 8995 printa2$
  476. 8997 pokes+11,0:pokes+8,40:pokes+11,17
  477. 9000 forx=0to5
  478. 9001 ifpeek(198)<>0then9040
  479. 9002 nextx
  480. 9005 printg1$
  481. 9010 printg2$
  482. 9015 pokes+11,0:pokes+8,60:pokes+11,17
  483. 9020 forx=0to5
  484. 9021 ifpeek(198)<>0then9040
  485. 9022 nextx
  486. 9030 goto8990
  487. 9040 pokes+11,0:y=0:z=int(rnd(0)*100)+1
  488. 9045 if z > 80 then y=1
  489. 9050 if y=1 then printg1$;g2$:print"        nochmal glueck gehabt !":goto4500
  490. 9055 printa1$;a2$:print"           jetzt reicht's !"
  491. 9057 forx=0to1500:nextx
  492. 9060 rem                                         --- absturz ---
  493. 9070 gosub2500
  494. 9080 pokes+8,6:pokes+12,7:pokes+13,0
  495. 9090 print"[147][151]"chr$(14):
  496. 9100 x$="[193] b g e s t u e r z t"
  497. 9110 print"";:
  498. 9120 z=9:gosub10600
  499. 9180 forx=0to500:next:sys64738
  500. 9500 rem                                                -------
  501. 9505 print"[147]            einen moment..."
  502. 9510 print"[144]load"chr$(34)"edit"chr$(34)",8"
  503. 9520 print"run"
  504. 9530 poke631,13:poke632,13:poke198,2:new
  505. 10000 rem                                         --- titelbild ---
  506. 10010 gosub2500:poke198,0
  507. 10020 pokes+8,6:pokes+12,7:pokes+13,0
  508. 10100 print"[147][129]"chr$(14):
  509. 10110 x$="[211]uper [209]uiz"
  510. 10120 print"";:z=14:gosub10600
  511. 10130 x$="[163][163][163][163][163][163][163][163][163][163]"
  512. 10140 z=14:gosub10600:print                  :if peek(198)>0 then 10800
  513. 10150 x$="[197]in [199]esellschaftsspiel"
  514. 10155 z=9:gosub10600
  515. 10160 x$="fuer 2 bis 16 [208]ersonen."
  516. 10165 z=9:gosub10600
  517. 10170 x$="[199]eschrieben von :"
  518. 10175 z=11:gosub10600:print
  519. 10180 print"";:x$="[210]obert [215]eitzel"
  520. 10185 z=12:gosub10600:print
  521. 10190 print"[129]";:x$="- 1990/91 -"
  522. 10195 z=14:gosub10600:goto10800
  523. 10600 :
  524. 10610 rem                                               -------
  525. 10620 print
  526. 10630 forx=1tolen(x$)
  527. 10640 y$=mid$(x$,x,1)
  528. 10650 print""y$"[157]";
  529. 10660 fory=z+xto39
  530. 10670 printchr$(20);
  531. 10680 nexty:pokes+11,0:gosub2900             :print"[145]":nextx
  532. 10700 return
  533. 10710 :
  534. 10800 poke198,0:z=10
  535. 10810 forx=8to15:fory=1toz:nexty
  536. 10820 poke53270,x
  537. 10830 next
  538. 10840 forx=14to9step-1:fory=1toz:nexty
  539. 10850 poke53270,x
  540. 10860 next
  541. 10865 ifz=100then11000
  542. 10870 ifpeek(198)=0thenz=z+1:goto10810
  543. 11000 print"[147]":printchr$(142)                :poke53270,200:return
  544. 12000 rem                                         --- hiscores laden ---
  545. 12010 open2,8,2,"scores,s,r"
  546. 12020 forx=1to40:input#2,hi$(x):input#2,sc(x):next:close2
  547. 12030 return
  548. 12100 rem                                         --- hiscores speichern ---
  549. 12110 open2,8,2,"@:scores,s,w"
  550. 12120 forx=1to40:print#2,hi$(x):print#2,sc(x):next:close2
  551. 12130 return
  552. 13000 rem                                         --- hiscores zeigen ---
  553. 13010 :
  554. 13020 print"[147]                   [221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][219]";
  555. 13030 print"[157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221]";
  556. 13040 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  557. 13050 print"[150]     10 runden:         20 runden:"
  558. 13060 forx=1to10:printhi$(x)spc(18-len(hi$(x))-len(str$(sc(x))))sc(x);
  559. 13070 print""hi$(x+10)spc(18-len(hi$(x+10))-len(str$(sc(x+10))))sc(x+10)
  560. 13080 next
  561. 13150 print"[150]     30 runden:         50 runden:"
  562. 13160 forx=21to29:printhi$(x)spc(18-len(hi$(x))-len(str$(sc(x))))sc(x);
  563. 13170 print""hi$(x+10)spc(18-len(hi$(x+10))-len(str$(sc(x+10))))sc(x+10)
  564. 13180 next
  565. 13190 printhi$(30)spc(18-len(hi$(30))-len(str$(sc(30))))sc(30);
  566. 13195 print""hi$(40)spc(18-len(hi$(40))-len(str$(sc(40))))sc(40)""
  567. 13200 poke198,0:wait198,1:return
  568. 14000 rem                                         --- anleitung ---
  569. 14010 open2,8,2,"anleitung,s,r"
  570. 14020 print"[147][154]"chr$(14);
  571. 14030 get#2,x$:ifx$<>"&"thenprintx$;         :goto14050
  572. 14040 poke198,0:wait198,1:print"[147]";
  573. 14050 ifst<>64then14030
  574. 14060 close2:printchr$(142):goto170
  575. 15000 rem                                         --- super quiz / ende ---
  576.